From 9a28bf9a71f29cffd73f696ea547811a81f8ea97 Mon Sep 17 00:00:00 2001 From: YAMAMOTO Mitsuharu Date: Sat, 12 Apr 2008 01:59:41 +0000 Subject: [PATCH] (mac-ae-open-documents): Adjust selection range parameter origins. --- lisp/term/mac-win.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index c9c13c7814e..eaa0e35fa5b 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el @@ -1738,11 +1738,11 @@ if possible. If there's no such frame, a new frame is created." (let ((line (car selection-range)) (start (cadr selection-range)) (end (nth 2 selection-range))) - (if (> line 0) - (goto-line line) - (if (and (> start 0) (> end 0)) - (progn (set-mark start) - (goto-char end)))))) + (if (>= line 0) + (goto-line (1+ line)) + (if (and (>= start 0) (>= end 0)) + (progn (set-mark (1+ start)) + (goto-char (1+ end))))))) ((stringp search-text) (re-search-forward (mapconcat 'regexp-quote (split-string search-text) "\\|") -- 2.30.2